﻿Imports JuegosLanBackend


Public Class listarcabina

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub listcab_TextChanged(sender As System.Object, e As System.EventArgs) Handles listcab.TextChanged


    End Sub

    Private Sub botlis_Click(sender As System.Object, e As System.EventArgs) Handles botlis.Click

        Dim a = Me.listcab.Text


        Dim LISCABN As String = Me.listcab.Text

        Dim negocio As New CabinaNegocio

        Dim list As Collection = negocio.buscarPorNombre(LISCABN)


        Me.listado.DataSource = list
        Me.listado.EditMode = False
        Me.listado.Columns(0).HeaderText = "ID"
        Me.listado.Columns(1).HeaderText = "NOMBRE"
        Me.listado.Columns(2).HeaderText = "DIRECCIÓN"









    End Sub

    Private Sub listado_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles listado.CellContentClick

    End Sub
End Class